home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Casts.cls < prev    next >
Text File  |  1997-06-14  |  2KB  |  94 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "GCasts"
  6. Attribute VB_GlobalNameSpace = True
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Function IAnimation(obj As IAnimation) As IAnimation
  11.     Set IAnimation = obj
  12. End Function
  13.  
  14. Public Function IFilter(obj As IFilter) As IFilter
  15.     Set IFilter = obj
  16. End Function
  17.  
  18. Function ISortHelper(obj As ISortHelper) As ISortHelper
  19.     Set ISortHelper = obj
  20. End Function
  21.  
  22. Function ISubclass(obj As ISubclass) As ISubclass
  23.     Set ISubclass = obj
  24. End Function
  25.  
  26. Function IUseFile(obj As IUseFile) As IUseFile
  27.     Set IUseFile = obj
  28. End Function
  29.  
  30. Function IUseFolder(obj As IUseFolder) As IUseFolder
  31.     Set IUseFolder = obj
  32. End Function
  33.  
  34. Function IUseRegItems(obj As IUseRegItems) As IUseRegItems
  35.     Set IUseRegItems = obj
  36. End Function
  37.  
  38. Function IVariantWalker(obj As IVariantWalker) As IVariantWalker
  39.     Set IVariantWalker = obj
  40. End Function
  41.  
  42. Function IVBContextMenu(obj As IVBContextMenu) As IVBContextMenu
  43.     Set IVBContextMenu = obj
  44. End Function
  45.  
  46. Function IVBContextMenu2(obj As IVBContextMenu2) As IVBContextMenu2
  47.     Set IVBContextMenu2 = obj
  48. End Function
  49.  
  50. Function IVBEnumIDList(obj As IVBEnumIDList) As IVBEnumIDList
  51.     Set IVBEnumIDList = obj
  52. End Function
  53.  
  54. Function IVBEnumVARIANT(obj As IVBEnumVARIANT) As IVBEnumVARIANT
  55.     Set IVBEnumVARIANT = obj
  56. End Function
  57.  
  58. Function IVBExtractIcon(obj As IVBExtractIcon) As IVBExtractIcon
  59.     Set IVBExtractIcon = obj
  60. End Function
  61.  
  62. Function IVBFileViewer(obj As IVBFileViewer) As IVBFileViewer
  63.     Set IVBFileViewer = obj
  64. End Function
  65.  
  66. Function IVBFileViewerSite(obj As IVBFileViewerSite) As IVBFileViewerSite
  67.     Set IVBFileViewerSite = obj
  68. End Function
  69.  
  70. Function IVBMalloc(obj As IVBMalloc) As IVBMalloc
  71.     Set IVBMalloc = obj
  72. End Function
  73.  
  74. Function IVBPersist(obj As IVBPersist) As IVBPersist
  75.     Set IVBPersist = obj
  76. End Function
  77.  
  78. Function IVBPersistFile(obj As IVBPersistFile) As IVBPersistFile
  79.     Set IVBPersistFile = obj
  80. End Function
  81.  
  82. Function IVBShellFolder(obj As IVBShellFolder) As IVBShellFolder
  83.     Set IVBShellFolder = obj
  84. End Function
  85.  
  86. Function IVBShellIcon(obj As IVBShellIcon) As IVBShellIcon
  87.     Set IVBShellIcon = obj
  88. End Function
  89.  
  90. Function IWindowsHelper(obj As IWindowsHelper) As IWindowsHelper
  91.     Set IWindowsHelper = obj
  92. End Function
  93.  
  94.